﻿Public Class Consulta_producto
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub BT_atras_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_atras.Click
        Response.Redirect("~/Consulta.aspx")
    End Sub

    Protected Sub BT_buscar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_buscar.Click
        panel_producto.Visible = True


        Dim nombre_producto As String
        Dim precio_producto As String
        Dim cantidad_producto As Integer
        

        Dim storexpress As New DCStorexpressDataContext
        Try
            Dim query = storexpress.p_buscar_producto(TB_codigo.Text)
            Dim registro = query.First


            nombre_producto = registro.NOMBRE_PRODUCTO
            precio_producto = registro.PRECIO_PRODUCTO
            cantidad_producto = registro.CANTIDAD_PRODUCTO


            TB_producto.Text = nombre_producto
            TB_valor.Text = precio_producto
            TB_cantidad.Text = cantidad_producto


        Catch ex As InvalidOperationException
            If MsgBox("no hay registros coincidentes") Then
                panel_producto.Visible = False
            End If

        End Try
    End Sub
End Class